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PPPPPPPP AAAAAA SSSSSSSS UU UU FFFFFFFFFF ®8B8BB8BBBB | 
PPPPPPPP AAAAAA SSSSSSSS UU UU FFFFFFFFFF ®B8B8BB8BBB8 
pp PP AA AA SS UU UU FF BB BB 
PP PP AA AA SS UU UU FF BB BB 
pp PP AA AA $S UU UU FF BB 8B 
PP PP AA AA $5 UU UU FF BB 8B 
PPPPPPPP = AA AA SSSSSS_-—s WU UU FFFFFFFF © ®BBBBBBBB | 
PPPPPPPP Es AA SSSSSS_- UU UU FFFFFFFF BBBBBBBB 
PP AAAAAAAAAA $$ UU UU FF BB BB 
PP $$ UU UU FF BB BB 
pp AA AA $$ UU UU FF BB 8B eae | 
pp AA AA $$ UU UU FF BB BB sina 
pp AA AA SSSSSSSS _- UUUUUUUUUUSC#éFF BBBBBBBB miei | 
pp AA AA SSSSSSSS  UUUUUUUUUU OFF BBBBBBBB ail 

| 
LL IMI1111 SSSSSSSS 
LL eeeee SSSSSSSS 
LL I] S$ | 
LL I] S$ 
LL I] 5S 
LL I] $$ 
LL I] SSSSSS | 
LL I] $SSSSS 
LL I] SS Of 
LL I] SS 
LL I] SS 
LL I] SS 
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MODULE PASSUFB ( % 
D File: PASUFB.B32 Edit: SBL1001 


nm 
2ae 
— ot 
fon 
om 
os 
(Be 
‘Ss 
ao 
oc 
—_—, 
- 


BEGIN 


Lee REAR ARERR EAE EE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


He ns SOFTWARE IS FURNISHED rere A_ LICENSE AND MAY BE USED AND Sgt ht 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH paces SE AND WITH THE 
Hd INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER 

:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* Panncrcentee’ NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
® a 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ oeePOkaT ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ix DIGITAL ASSUMES NO RESPONS BILIT 


IBILIT 
'* SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR 7 ppm OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL 


aeeneeneneneee enn nnennnnn 


LRA RARER RARER AEA RARE EERE ATER A EAA EEA EERE 
{ 


65 144 
4 FACILITY: Pascal Language Support 
a8 ABSTRACT: 
00 i This procedure implements the Pascal UFB procedure. It 
00 : is not called directly from compiled code, but rather can 
be passed as a procedure by users. 
+ ENVIRONMENT: User mode - AST reentrant 
BRE AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
004 i MODIFIED BY: 
044 i 
045 i 1-001 - Original. SBL 1-April-1981 
0046 ie 


kt tk tk tt kt at as a ss a ss 2 2s ss 1 1 ss ss ss 1 OOO 
o- 
= 
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Inquire if undefined file buffer 
1-001 Declarations 


; 69 pone 1 £SBTTL ‘Deciarations' 
3 20 049 1! 

; 1 Bead 1 ! PROLOGUE DEFINITIONS: 
s 26 oo 2 3 

: é 0052 1 

: 4 005 1 REQUIRE ‘RTLIN:PASPROLOG'; 
“ae 011 1 

; 56 B18 1! 

; 57 119 1 =! TABLE OF CONTENTS: 
= 0120 1! 

; 39 0121 1 

P4 60 8 ¢ 1 FORWARD ROUTINE 

5 61 1 1 PASSUFB; 

: o¢ 0124 «1 

; § 0125 1! 

; 64 0126 1 ! MACROS: 

; $5 0127 1! 

; 66 0128 1! NONE 

pia * Hts ge 

3 68 0130 1 ! EQUATED SYMBOLS: 

; 69 ate 7 3 

; 70 0132 1! NONE 

. 9 0133 1! 

5 72 0134 1! FIELDS: 

. we 0135 1! 

; 74 0136 1! NONE 

> 0137 1! 

; 76 0138 1 ! OWN STORAGE: 

: 77 0139 1! 

: 78 0140 1! NONE 

: 79 0141 1! 


6 
1B-seo-1984 02:)0:45  yanctt Bliss: 


Pw 
mr 


! Externals, linkages, PSECTs, structures 


! Inquire if undefined file buffer 
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| 
| 
| 
| 
| 


PFV - The Pascal File Variable (PFV) passed oy rererenee: 


The structure of the PFV is defined in 
IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 


i 
' 

i 
' 

' 

i 
i 

' 

; NONE 
' 

i 

' 

' 

' 
ie 
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PASSUFB nquire if undefined file buffer 16-Sep-1984 10:45 AX-11 Bliss-32 V4.0-742 Pa 
1-001 ASSUFB = Inquire if undefined file buffer ae 9 %§ 51:58 PASRTL SRC IPASUFB.B32: 1 - 
81 4 ZSBTTL "PASSUFB - [nguice if undefined file buffer’ 
B¢ 4 GLOBAL ROUTINE PASS$UFB ( ! Inquire if undefined file buffer 
te : P PFV: REF SPASSPFV_FILE_VARIABLE ! File variable 
85 4 
86 4 144 
Hi : FUNCTIONAL DESCRIPTION: 
89 5 This procedure returns a boolean value TRUE if the given file's 
oy é buffer is undefined, FALSE otherwise. 
4 2 CALLING SEQUENCE: 
Be é UFB.wv.v = PASSUFB (PFV.mr.r) 
96 5 FORMAL PARAMETERS: 
97 5 
98 5 
6 
6 
6 
6 


| ROUTINE VALUE: 


Boolean TRUE (1) if file buffer is undefined. 
Boolean FALSE (0) if file buffer is defined. 


SIDE EFFECTS: 
Resolves any lazy lookahead in progress, possibly opening the file. 
SIGNALLED ERRORS: 
FILNOTOPE - file not open \ 
BEGIN 
LOC 
! Control block 
Function result 


Enable argument 
Enable argument 


AL 
4S A REF $PAS$FCB_CONTROL_BLOCK, 


R ‘ “ 
PFV_ADDR: VOLATILE, 
UNWIND_ACT: VOLATILE; 


ENABLE 
PASS$SSIO_HANDLER (PFV_ADDR, UNWIND_ACT); 


'¢ 
Set the enable argument for the PFV address. 


“no 
SSS SRS SSSA Fw PSSA UE UNI SOD oe Wo AP ONG o> Ooo WO S Ltn to Dee PCA ote ec 


folelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelelalelelelelelealelelealelelelelelele! oo Me: 
a a a et a a ee a ee a ee el a ee ee a le el cl ee a ec a ad 
POPOPONOPOPONONONOPOPNONONY — 2 I I tes 


DOOO OOO OO WWW 0000 0000 0 0 SI NIN SIN NNN NAA OA OO 


Be Be Be Oe Be Oe Be Se Se Be Be Se Be Se Se Se Se Be Ge Se Ge Be Se Se Ge Se SH Se Oe Se Se Oe Oe Oe Be Oe Oe we Oe FHS SHS OH Se ee oe OHHH OH ee ee ee ee 


NOUS WN 30 OONO UE WN SO DOODNOUES WN “OO OONOUEWN oO 


ababébabebaebahebababeabubatsbhebahwteheh Bei aaahabubehatabBabadababatat ah 
WAIN AINA POPUPONINPININNDDY 2 2 2 OOO OS MS DOO OCOCOCOCOCOO 


v 
& 


if undefined file buffer 
- Inquire if undefined file buffer 


PASSUFB 1984 02:10:45  VAX-11 Bliss-32 v4.0-76 2 4 
1-00 198¢ $3:39538 ; ; — 


-/ 
PASRTL.SRCJPASUFB.B32; 


“oO 
c—- 
ny 


ec 


PFV_ADDR = PFV CPFVSR_PFV); 


4 
Validate and lock the PFV. 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 


lolelelolelelelelole):) 


AONE WN =O OONAUE WN | O ODNAUE WN CO OONAUE WN "OO OODNOU FW O0 


+ 
Set unwind action to unlock file. 

UNWIND_ACT = PASSK_UNWIND_UNLOCK; 

14 

Call PAS$$LOOK_AHEAD to resolve lazy lookahead. 


IF NOT .PFV CPFVSV_VALIDJ 
PASSSLOOK_AHEAD (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 


14 
Verify that file is open. 


PAAAASAMMAMNMNVNN SS BEE EE EEE PWS 


RPE S SSNS RAN SSS APO IS SSS SSeS SEA LESY 


it _ -PFV CPF V$V_OPEN] ! Not open 
SPASSIO_ERROR (PASS$_FILNOTOPE,0); 

+ 

Determine if UFB 

RESULT = NOT .PFV CPFVS$V_DFB); 

'¢ 


i Indicate successful completion 
Unlock file and return. 


FCB ECBSL_STATUSJ 0; 


PFV CPFV$V_LOCK) 
RETURN .RESULT; 
END; 


0: 


e 
B 
; 
2 
2 
2 
2 
r4 
2 
é 
2 
2 
é 
2 
2 
2 
2 
2 
2 
2 
2 
r4 
2 
2 
2 
2 
r4 
rd 
; 
2 
2 
1 
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End of routine PASS$UFB 


PAS$SUFB Inquire if undefined file buffer 
\1-001\ 


E 

T 

N PASSUFB, PAS$$IO_ HANDLER 

N PASSS$VALIDATE _PFY 

N PAS$$LOOK_AHEAD 

N PASSSSIGNAL, PASSK_F ILNOTOPE 


eae re cae RRL 
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PASSUFB Inquire if undefined file buffer 16-Sep-1984 10:45 AX-11 Bliss-32 V4.0-7 
1-001 PA ASSUFB - Inquire if undefined file buffer 19-8e8-13be ost PASRTL.SR ROIP PASUB B B32: 
| -PSECT _PASSCODE,NOWRT, SHR, PIC,2 
overt 0000 -ENTRY PASSUFB, Save R2,R3,R6,R7 
5E Of C 4 SUBL2 SP 
E 04 0000 CLRL UNWIND_ACT 
04 AE D4 00007 CLRL V_ADB 
6D 0045 CF DE OOOA MOVAL 4$,~(FP) 
56 04 AC 00 O000F MOVL V, R6 
04 AE 56 DO 00013 MOVL 6, PFV_AD 
000000006 00 16 00017 JSB PASSS$VACIDATE_PFV 
6E 01 00 00010 MOVL 1, UNWIND_ACT 
06 06 Ab E8 00020 BLBS (R6), 1$ 
00000000G 00 16 00024 JSB PASS$$LOOK_AHEAD 
OF 07 A6 05 £0 0002A 1$ BBS #5, 7(R6), 2$ 
7E D4 O002F CLRL = = (§P) 
7E 00G 8F 9A 00031 MOVZBL #PASS$K_FILNOTOPE, -(SP) 
00000000G 00 02 FB 00035 CALLS 2, PASSSSIGNAL 
12 11 0003C BRB $ 
50 06 A6 01 01 EF OOO3E 2$: EXTZV #1, #1, 6(R6), RESULT 
50 50 D2 00044 MCOML RESULT, RESULT 
D4 = A?-—s=D4 -00047 CLRL -44(F CB) 
07 Ab 80 8F 8A OOO4A BICB2 #128, 7(R6) 
04 OO004F RET 
50 D4 00050 3$: CLRL RO 
04 0005¢ RET 
0000 00053 4$: «WORD Save nothing 
50 08 AC 00 00055 MOVL B(AP), 
50 04 AO Dd0 00059 MOVL 4(RO), RO 
F8 AO 9F 0005D PUSHAB UNWIND ACT 
FC AO 9F 00060 PUSHAB PFV_ADBR 
02 DD 00063 PUSHL #2 ~ 
5E DD 00065 PUSHL SP 
7E 04 AC 7D 00067 MOVQ 4(AP), -(SP) 
000000006 00 03 FB 0006B CALLS #3, PAS$$10. HANDLER 
04 00072 RET 
; Routine Size: 115 bytes, Routine Base: _PAS$CODE + 0000 
: 4186 0247 1 
187 0248 1 '<BLF/PAGE> 


Page 
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PASSUFB prguire if undefined file buffer 18- -Sep-1 38¢ 0g: 19:33 AX-11 Bliss-32 V4.0-742 
1-001 PASSUFB = Inquire if undefined file buffer 14-Sep p19 :58 PASRTL.SRCJPASUFB.B32;1 
; 1H 49 1 END ! End of module PASSUFB 
: 190 355 1 "acted 
; 191 0251 0 ELUDOM 
5 PSECT SUMMARY 
: Name Bytes Attributes 
: PASSCODE 115 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
ie ae a re oe RE yee Syehelg soncecee Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
; ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 90 21 33 00:00.4 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASUFB/OBJ=OBJ$:PASUFB MSRC$:PASUFB/UPDATE=(ENH$:PASUFB) 
Size: 115 code + 0 data bytes 
Run Time: 0: 


Elapsed Time: 00:17.0 
Lines/CPU Min: 3231 
Lexemes/CPU-Min: 9000 
pom i Used: 64 pages 
Compilation Complete 
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